

gen MVoc=0
replace MVoc=1 if dhf==2461 | dhf==354 | dhf==355 | dhf==358 | dhf==3842 | dhf==3859 | dhf==3860 | dhf==3861 | dhf==3862 | dhf==3872 | dhf==3935
replace MVoc=1 if dhf==4029 | dhf==4038 | dhf==4039 | dhf==4040 | dhf==4041 | dhf==4044 | dhf==4053 | dhf==4054 | dhf==4065 | dhf==4067 | dhf==4068 | dhf==4075 
replace MVoc=1 if dhf==4080 | dhf==4081 | dhf==4082 | dhf==4083 | dhf==4091  | dhf==4119 | dhf==4121 | dhf==4122 | dhf==4123 | dhf==4135 | dhf==4206 | dhf==4207
replace MVoc=1 if  dhf==4098 
replace MVoc=1 if dhf==4212 
replace MVoc=1 if dhf==4214 
replace MVoc=1 if dhf==4220 | dhf==4221 | dhf==4222 | dhf==4223 | dhf==4224 | dhf==4225 | dhf==4226 | dhf==4227 | dhf==4228 | dhf==4229 | dhf==4230 | dhf==4233 | dhf==4234
replace MVoc=1 if dhf==4238 | dhf==4236 | dhf==4237 | dhf==4239 | dhf==4241 | dhf==4242 | dhf==4250 | dhf==4251 | dhf==4252 | dhf==4253 | dhf==4254 | dhf==4255 | dhf==4256 
replace MVoc=1 if dhf==4257 | dhf==4258 | dhf==4259 | dhf==4265 | dhf==4266 | dhf==4267 | dhf==4268 | dhf==4270 | dhf==4276 | dhf==4277 | dhf==4280 | dhf==4281 | dhf==4285
replace MVoc=1 if dhf==4287 | dhf==4290 | dhf==4291 | dhf==4294 | dhf==4295 | dhf==4296 | dhf==4297 | dhf==4298 | dhf==4299 | dhf==4301 | dhf==4305 | dhf==4306 | dhf==4318 | dhf==4320 
replace MVoc=1 if dhf>=4321 & dhf<=4331 
replace MVoc=1 if dhf>=4335 & dhf<=4351
replace MVoc=1 if dhf==4360 | dhf==4362 | dhf==4364 | dhf==4365 | dhf==4370 | dhf==4371 | dhf==4376 | dhf==4377 | dhf==4378 | dhf==4379 | dhf==4380 | dhf==4382
replace MVoc=1 if dhf>=4385 & dhf<=4389
replace MVoc=1 if dhf==4391 | dhf==4393 | dhf==4394 | dhf==4398 | dhf==4403 | dhf==4417 | dhf==4419 | dhf==4421 | dhf==4427 | dhf==4432 | dhf==4439 | dhf==4443 | dhf==4446
replace MVoc=1 if dhf>=4434 & dhf<=4437
replace MVoc=1 if dhf==4457 | dhf==4459 | dhf==4466 | dhf==4468 | dhf==4471 | dhf==4481 | dhf==4485 | dhf==4486 | dhf==4487 | dhf==4490 | dhf==4512 | dhf==4513 | dhf==4515
replace MVoc=1 if dhf>=4492 & dhf<=4495
replace MVoc=1 if dhf>=4500 & dhf<=4504
replace MVoc=1 if dhf>=4506 & dhf<=4510
replace MVoc=1 if dhf>=4518 & dhf<=4520
replace MVoc=1 if dhf==4526 | dhf==4633 | dhf==4786 | dhf==4850 | dhf==4851 | dhf==4853 | dhf==4854 | dhf==4855 | dhf==4856 | dhf==4858 | dhf==4859 | dhf==4860 | dhf==4861 | dhf==4870 | dhf==4871 | dhf==4874 | dhf==4875 | dhf==4879 
replace MVoc=1 if dhf>=4528 & dhf<=4532
replace MVoc=1 if dhf>=4547 & dhf<=4554
replace MVoc=1 if dhf==5035 | dhf==5036 
replace MVoc=1 if dhf>=5038 & dhf<=5041
replace MVoc=1 if dhf==5043 | dhf==5045 | dhf==5132 | dhf==5135 | dhf==5136 | dhf==5203 | dhf==9330 | dhf==9484 | dhf==9485 | dhf==9486 | dhf==9495 | dhf==9636 | dhf==9911 | dhf==9913 | dhf==9914
replace MVoc=1 if dhf==4644




gen SVoc=0
replace SVoc=1 if dhf==2010 | dhf==2414 | dhf==2419 | dhf==2481 | dhf==320 | dhf==339 | dhf==360 | dhf==3744 | dhf==3745 | dhf==3746 
replace SVoc=1 if dhf>=3747 & dhf<=3775
replace SVoc=1 if dhf>=3800 & dhf<=3841
replace SVoc=1 if dhf==3843 | dhf==3844 | dhf==3844 | dhf==3845 | dhf==3846 | dhf==3848 | dhf==3849 | dhf==3850 | dhf==3851 | dhf==3852 | dhf==3853 | dhf==3856 | dhf==3858 | dhf==3865
replace SVoc=1 if dhf==3866 | dhf==3867 | dhf==3870 | dhf==3875 | dhf==390 | dhf==3939 | dhf==3945 | dhf==3965 | dhf==3971 | dhf==4000 | dhf==4005 | dhf==4006 | dhf==4010 | dhf==4011 | dhf==4012 
replace SVoc=1 if dhf>=4013 & dhf<=4015 
replace SVoc=1 if dhf>=4017 & dhf<=4028
replace SVoc=1 if dhf>=4032 & dhf<=4037
replace SVoc=1 if dhf==4045 | dhf==4052
replace SVoc=1 if dhf==4055 | dhf==4063 | dhf==4064 | dhf==4069

replace SVoc=1 if dhf==4084 | dhf==4085 | dhf==4086 | dhf==4096 | dhf==4099 | dhf==4124 | dhf==4125 | dhf==4127 | dhf==4128 | dhf==4168 | dhf==4188 | dhf==4189 | dhf==4193 | dhf==4194 
replace SVoc=1 if dhf==4196 | dhf==4197 | dhf==4201 | dhf==4203 | dhf==4211 | dhf==4215 | dhf==4217 | dhf==4218 | dhf==4219 | dhf==4231 | dhf==4232 | dhf==4235 | dhf==4240 | dhf==4243 
replace SVoc=1 if dhf==4244 | dhf==4245 | dhf==4246 | dhf==4247 | dhf==4248 | dhf==425 
replace SVoc=1 if dhf>=4260 & dhf<=4264
replace SVoc=1 if dhf==4289 | dhf==4292 | dhf==4293 | dhf==430 | dhf==4302 | dhf==4307 | dhf==4308 | dhf==4310 
replace SVoc=1 if dhf>=4312 & dhf<=4317
replace SVoc=1 if dhf==4319 | dhf==4332 | dhf==4333 | dhf==4334 
replace SVoc=1 if dhf>=4355 & dhf<=4358 
replace SVoc=1 if dhf==4366 | dhf==4367 | dhf==4372 | dhf==4373 | dhf==4375 | dhf==4381 | dhf==439 | dhf==4392 | dhf==4395 | dhf==4396 | dhf==4399 | dhf==4400 | dhf==4402 | dhf==4410 | dhf==4412 | dhf==4413 | dhf==4414 | dhf==4416 | dhf==4418 | dhf==4420 
replace SVoc=1 if dhf>=4422 & dhf<=4426
replace SVoc=1 if dhf>=4428 & dhf<=4431
replace SVoc=1 if dhf==4433 | dhf==4438 | dhf==4440 | dhf==4441 | dhf==4442 | dhf==4444 | dhf==4445 
replace SVoc=1 if dhf>=4447 & dhf<=4449
replace SVoc=1 if dhf>=4452 & dhf<=4456
replace SVoc=1 if dhf==4458 
replace SVoc=1 if dhf>=4460 & dhf<=4465
replace SVoc=1 if dhf==4467 | dhf==4469 | dhf==4470 | dhf==4472 | dhf==4473 
replace SVoc=1 if dhf>=4475 & dhf<=4480
replace SVoc=1 if dhf==4482 | dhf==4483 | dhf==4484 | dhf==4488 | dhf==4496 | dhf==4498 | dhf==4499 | dhf==4505 | dhf==4511 | dhf==4514 | dhf==4516 | dhf==4517 
replace SVoc=1 if dhf>=4521 & dhf<=4525
replace SVoc=1 if dhf==4527 | dhf==4533 | dhf==4534 | dhf==4543 | dhf==4546 
replace SVoc=1 if dhf>=4536 & dhf<=4540
replace SVoc=1 if dhf>=4556 & dhf<=4560
replace SVoc=1 if dhf==4562 | dhf==4600 | dhf==4601 | dhf==4602 
replace SVoc=1 if dhf>=4606 & dhf<=4616
replace SVoc=1 if dhf==4634 | dhf==4655 | dhf==4670 | dhf==4680 | dhf==4685 | dhf==4688 | dhf==4689 | dhf==4690 | dhf==4691 | dhf==4698 | dhf==4700 | dhf==4724 | dhf==4728 | dhf==4755 
replace SVoc=1 if dhf==4756 | dhf==4757 | dhf==4758 | dhf==4759 | dhf==4780 | dhf==4781 | dhf==4782 | dhf==4785 | dhf==4877 | dhf==4878 | dhf==4880 | dhf==4881 | dhf==4882 | dhf==490 
replace SVoc=1 if dhf>=4901 & dhf<=4934
replace SVoc=1 if dhf>=4937 & dhf<=4943
replace SVoc=1 if dhf==4945 | dhf==495 
replace SVoc=1 if dhf>=4951 & dhf<=4962
replace SVoc=1 if dhf>=4964 & dhf<=4967
replace SVoc=1 if dhf==4970 | dhf==4971
replace SVoc=1 if dhf>=4977 & dhf<=4979
replace SVoc=1 if dhf>=4981 & dhf<=4992
replace SVoc=1 if dhf==4996 | dhf==4997 | dhf==4998 
replace SVoc=1 if dhf>=5003 & dhf<=5009
replace SVoc=1 if dhf==5017 | dhf==5020 | dhf==5025 | dhf==5031 | dhf==5033 | dhf==5034 | dhf==5042 | dhf==5061 | dhf==5065 
replace SVoc=1 if dhf>=5076 & dhf<=5079
replace SVoc=1 if dhf>=5082 & dhf<=5087
replace SVoc=1 if dhf>=5093 & dhf<=5096
replace SVoc=1 if dhf>=5111 & dhf<=5118
replace SVoc=1 if dhf>=5120 & dhf<=5126
replace SVoc=1 if dhf==5128 | dhf==5129 | dhf==5131 | dhf==5133 | dhf==5137 | dhf==5138 | dhf==5141 | dhf==5145 | dhf==5146 | dhf==5147 | dhf==5148 | dhf==5149 | dhf==5152 | dhf==5154 | dhf==5155 | dhf==5156 | dhf==5162 | dhf==5164 | dhf==5167 | dhf==5168 | dhf==5174 | dhf==5177 | dhf==5182 
replace SVoc=1 if dhf>=5196 & dhf<=5199
replace SVoc=1 if dhf==520
replace SVoc=1 if dhf==5201 | dhf==5205 | dhf==5206 | dhf==5207 | dhf==5208 | dhf==5209 
replace SVoc=1 if dhf>=5231 & dhf<=5235
replace SVoc=1 if dhf==5238 | dhf==530 | dhf==5431 | dhf==5432 | dhf==5441 | dhf==5443 | dhf==5445 | dhf==5447 | dhf==5451 | dhf==5611 | dhf==5695 | dhf==5904 | dhf==5911 
replace SVoc=1 if dhf>=5919 & dhf<=5923
replace SVoc=1 if dhf==690 | dhf==695 | dhf==805 | dhf==806 | dhf==812 | dhf==810 | dhf==811 | dhf==825 
replace SVoc=1 if dhf>=8440 & dhf<=8444
replace SVoc=1 if dhf==845 | dhf==850 | dhf==9197 | dhf==9654 
